home *** CD-ROM | disk | FTP | other *** search
- object CalculatorEh: TCalculatorEh
- Left = 0
- Top = 0
- BorderStyle = bsNone
- ClientHeight = 127
- ClientWidth = 184
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- PixelsPerInch = 96
- TextHeight = 13
- object SpeedButton24: TSpeedButtonEh
- Tag = 12
- Left = 151
- Top = 52
- Width = 27
- Height = 23
- Caption = 'Cancel'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton1: TSpeedButtonEh
- Tag = 1
- Left = 6
- Top = 29
- Width = 27
- Height = 22
- Caption = '7'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton2: TSpeedButtonEh
- Tag = 21
- Left = 64
- Top = 101
- Width = 27
- Height = 22
- Caption = '.'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton3: TSpeedButtonEh
- Tag = 20
- Left = 35
- Top = 101
- Width = 27
- Height = 22
- Caption = '+/-'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton4: TSpeedButtonEh
- Tag = 19
- Left = 6
- Top = 101
- Width = 27
- Height = 22
- Caption = '0'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton5: TSpeedButtonEh
- Tag = 15
- Left = 64
- Top = 77
- Width = 27
- Height = 22
- Caption = '3'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton6: TSpeedButtonEh
- Tag = 14
- Left = 35
- Top = 77
- Width = 27
- Height = 22
- Caption = '2'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton7: TSpeedButtonEh
- Tag = 13
- Left = 6
- Top = 77
- Width = 27
- Height = 22
- Caption = '1'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton8: TSpeedButtonEh
- Tag = 9
- Left = 64
- Top = 53
- Width = 27
- Height = 22
- Caption = '6'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton9: TSpeedButtonEh
- Tag = 8
- Left = 35
- Top = 53
- Width = 27
- Height = 22
- Caption = '5'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton10: TSpeedButtonEh
- Tag = 7
- Left = 6
- Top = 53
- Width = 27
- Height = 22
- Caption = '4'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton11: TSpeedButtonEh
- Tag = 3
- Left = 64
- Top = 29
- Width = 27
- Height = 22
- Caption = '9'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton12: TSpeedButtonEh
- Tag = 2
- Left = 35
- Top = 29
- Width = 27
- Height = 22
- Caption = '8'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton13: TSpeedButtonEh
- Tag = 22
- Left = 93
- Top = 101
- Width = 27
- Height = 22
- Caption = '+'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton14: TSpeedButtonEh
- Tag = 16
- Left = 93
- Top = 77
- Width = 27
- Height = 22
- Caption = '-'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton15: TSpeedButtonEh
- Tag = 10
- Left = 93
- Top = 53
- Width = 27
- Height = 22
- Caption = '*'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton16: TSpeedButtonEh
- Tag = 4
- Left = 93
- Top = 29
- Width = 27
- Height = 22
- Caption = '/'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object spEqual: TSpeedButtonEh
- Tag = 23
- Left = 122
- Top = 101
- Width = 56
- Height = 22
- Caption = 'Ok'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton18: TSpeedButtonEh
- Tag = 17
- Left = 122
- Top = 77
- Width = 27
- Height = 22
- Caption = '1/x'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton19: TSpeedButtonEh
- Tag = 11
- Left = 122
- Top = 53
- Width = 27
- Height = 22
- Caption = '%'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton20: TSpeedButtonEh
- Tag = 5
- Left = 122
- Top = 29
- Width = 27
- Height = 22
- Caption = 'sqrt'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton22: TSpeedButtonEh
- Tag = 18
- Left = 151
- Top = 77
- Width = 27
- Height = 22
- Caption = '<-'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object SpeedButton23: TSpeedButtonEh
- Tag = 6
- Left = 151
- Top = 29
- Width = 27
- Height = 46
- Caption = 'C'
- Flat = True
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Layout = blGlyphRight
- ParentFont = False
- Transparent = False
- OnClick = SpeedButtonClick
- Active = False
- end
- object Panel1: TPanel
- Left = 6
- Top = 4
- Width = 171
- Height = 19
- BevelOuter = bvNone
- BorderWidth = 2
- Color = clHighlightText
- TabOrder = 0
- object TextBox: TLabel
- Left = 2
- Top = 1
- Width = 166
- Height = 17
- Alignment = taRightJustify
- AutoSize = False
- Caption = '0'
- Color = clHighlightText
- ParentColor = False
- Layout = tlCenter
- end
- end
- end
-